home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / golisp.zip / UT.LSP < prev   
Lisp/Scheme  |  1995-01-20  |  469b  |  22 lines
  1. ;Underlines picked text
  2. ;Bob Zelna
  3.  
  4. (defun GET (A B)
  5.   (cdr (assoc A B))
  6. )
  7. (defun C:UT (/ ss count ent)
  8.   (prompt"\nSelect text to underline: ")
  9.   (setq ss (ssget)
  10.         count -1)
  11.   (while (setq ent (ssname ss (setq count (1+ count))))
  12.     (setq ent (entget ent))
  13.     (if (equal (get 0 ent) "TEXT")
  14.       (progn
  15.         (setq text (strcat "%%u" (get 1 ent)))
  16.         (entmod (subst (cons 1 text) (assoc 1 ent) ent))
  17.       )
  18.     )
  19.   )
  20.   (prin1)
  21. )
  22.